object DatasetEditor: TDatasetEditor
  Left = 196
  Top = 113
  BorderStyle = bsSizeToolWin
  AutoScroll = False
  Caption = 'Form1.Table1'
  ClientHeight = 168
  ClientWidth = 116
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  PixelsPerInch = 96
  PopupMenu = LocalMenu
  OnClick = SelectTable
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 116
    Height = 21
    Align = alTop
    BevelOuter = bvNone
    BorderWidth = 1
    ParentColor = True
    TabOrder = 0
    OnClick = SelectTable
    object DBNavigator: TDBNavigator
      Left = 1
      Top = 1
      Width = 114
      Height = 18
      DataSource = DataSource
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      Align = alTop
      TabOrder = 0
    end
  end
  object FieldListBox: TListBox
    Left = 0
    Top = 21
    Width = 116
    Height = 147
    Align = alClient
    DragMode = dmAutomatic
    ItemHeight = 13
    MultiSelect = True
    TabOrder = 1
    OnClick = FieldListBoxClick
    OnDragDrop = FieldListBoxDragDrop
    OnDragOver = FieldListBoxDragOver
    OnKeyDown = FieldListBoxKeyDown
    OnKeyPress = FieldListBoxKeyPress
    OnStartDrag = FieldListBoxStartDrag
  end
  object DataSource: TDataSource
    Left = 10
    Top = 32
  end
  object LocalMenu: TPopupMenu
    OnPopup = LocalMenuPopup
    Left = 40
    Top = 32
    HelpContext = 30130
    object AddItem: TMenuItem
      Caption = '&Add fields...'
      HelpContext = 30131
      OnClick = AddItemClick
      ShortCutText = 'Ctrl+A'
    end
    object NewItem: TMenuItem
      Caption = '&New field...'
      HelpContext = 30132
      OnClick = NewItemClick
      ShortCutText = 'Ctrl+N'
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object CutItem: TMenuItem
      Caption = 'Cu&t'
      HelpContext = 30133
      OnClick = CutItemClick
      ShortCutText = 'Ctrl+X'
    end
    object CopyItem: TMenuItem
      Caption = '&Copy'
      HelpContext = 30134
      OnClick = CopyItemClick
      ShortCutText = 'Ctrl+C'
    end
    object PasteItem: TMenuItem
      Caption = '&Paste'
      HelpContext = 30135
      OnClick = PasteItemClick
      ShortCutText = 'Ctrl+V'
    end
    object DeleteItem: TMenuItem
      Caption = '&Delete'
      HelpContext = 30136
      OnClick = DeleteItemClick
      ShortCutText = 'Del'
    end
    object SelectAllItem: TMenuItem
      Caption = 'Se&lect all'
      HelpContext = 30137
      OnClick = SelectAllItemClick
      ShortCutText = 'Ctrl+L'
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object RetrieveItem: TMenuItem
      Caption = '&Retrieve attributes'
      HelpContext = 30138
      OnClick = RetrieveItemClick
      ShortCutText = 'Ctrl+R'
    end
    object UpdateItem: TMenuItem
      Caption = '&Save attributes'
      HelpContext = 30139
      OnClick = UpdateItemClick
      ShortCutText = 'Ctrl+S'
    end
    object SaveAttributesAsItem: TMenuItem
      Caption = 'Sav&e attributes as...'
      HelpContext = 30140
      OnClick = SaveAttributesAsItemClick
      ShortCutText = 'Ctrl+E'
    end
    object AssociateItem: TMenuItem
      Caption = 'Ass&ociate attributes...'
      HelpContext = 30141
      OnClick = AssociateItemClick
      ShortCutText = 'Ctrl+O'
    end
    object Unassociate: TMenuItem
      Caption = '&Unassociate attributes'
      HelpContext = 30142
      OnClick = UnassociateClick
      ShortCutText = 'Ctrl+U'
    end
  end
end